home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 202 / 202.d81 / call bingo (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2001-01-01  |  28.9 KB  |  1,081 lines
  1. 0 gosub20:poke53280,6:gosub 7700:fordelay=1to2000:next:dimno(75),mo(75)
  2. 1 poke53280,13:poke53281,.:poke646,13
  3. 2 gosub 7600
  4. 3 for delay=1to3000:next
  5. 4 forx=1to75:readn:no(x)=n:mo(x)=n:next:gosub20000
  6. 5 data 1,2,3,4,5,6,7,8,9,10,11,12,13,14,15:rem b
  7. 6 data 16,17,18,19,20,21,22,23,24,25,26,27,28,29,30:rem i
  8. 7 data 31,32,33,34,35,36,37,38,39,40,41,42,43,44,45:rem n
  9. 8 data 46,47,48,49,50,51,52,53,54,55,56,57,58,29,60:rem g
  10. 9 data 61,62,63,64,65,66,67,68,69,70,71,72,73,74,75:rem o
  11. 10 s0=s0+1:s=mo(s0)
  12. 11 no(s)=0
  13. 12 if s=<15thengosub8000:goto120
  14. 13 if s=>16ands=<30thengosub8100:goto1620
  15. 14 if s=>31ands=<45thengosub8200:goto3120
  16. 15 if s=>46ands=<60thengosub8300:goto4620
  17. 16 if s=>61thengosub8400:goto6120
  18. 20 ]sp95:]pi54:]kn128,128:l=1:]re
  19. 21 print"":poke53281,6:poke53272,20
  20. 23 if l=1then:]li1
  21. 25 return
  22. 100 rem b 1
  23. 101 b$(1)="              "
  24. 102 b$(2)="              "
  25. 103 b$(3)="              "
  26. 104 b$(4)="              "
  27. 105 b$(5)="              "
  28. 106 b$(6)="              "
  29. 107 b$(7)="              "
  30. 108 b$(8)="              "
  31. 109 b$(9)="              "
  32. 110 m$="b-1":return
  33. 120 rem b 1-15
  34. 121 if s=1thengosub100:goto150
  35. 122 if s=2thengosub200:goto150
  36. 123 if s=3thengosub300:goto150
  37. 124 if s=4thengosub400:goto150
  38. 125 if s=5thengosub500:goto150
  39. 126 if s=6thengosub600:goto150
  40. 127 if s=7thengosub700:goto150
  41. 128 if s=8thengosub800:goto150
  42. 129 if s=9thengosub900:goto150
  43. 130 if s=10thengosub1000:goto150
  44. 131 if s=11thengosub1100:goto150
  45. 132 if s=12thengosub1200:goto150
  46. 133 if s=13thengosub1300:goto150
  47. 134 if s=14thengosub1400:goto150
  48. 135 if s=15thengosub1500:goto150
  49. 150 rem b printout
  50. 151 print"";:poke214,8:print
  51. 152 forb=1to9:printtab(13)b$(b):next:print:gosub7800
  52. 153 forb=1to9:b$(b)="":next:s=0
  53. 154 ]li1:say m$:m$="":]li1:printtab(7)"press [x] for tally chart"
  54. 155 printtab(2)"press any other key for next number"
  55. 156 get any$:if any$=""then 156
  56. 157 ifany$=chr$(88)thengoto9000
  57. 160 goto10
  58. 200 rem b 2
  59. 201 b$(1)="              "
  60. 202 b$(2)="              "
  61. 203 b$(3)="              "
  62. 204 b$(4)="              "
  63. 205 b$(5)="              "
  64. 206 b$(6)="              "
  65. 207 b$(7)="              "
  66. 208 b$(8)="              "
  67. 209 b$(9)="              "
  68. 210 m$="b-2":return
  69. 300 rem b 3
  70. 301 b$(1)="              "
  71. 302 b$(2)="              "
  72. 303 b$(3)="              "
  73. 304 b$(4)="              "
  74. 305 b$(5)="              "
  75. 306 b$(6)="              "
  76. 307 b$(7)="              "
  77. 308 b$(8)="              "
  78. 309 b$(9)="              "
  79. 310 m$="b-3":return
  80. 400 rem b 4
  81. 401 b$(1)="        {SHIFT-POUND}     "
  82. 402 b$(2)="       {SHIFT-POUND}      "
  83. 403 b$(3)="      {SHIFT-POUND}       "
  84. 404 b$(4)="     {SHIFT-POUND} {SHIFT-POUND}      "
  85. 405 b$(5)="              "
  86. 406 b$(6)="              "
  87. 407 b$(7)="              "
  88. 408 b$(8)="              "
  89. 409 b$(9)="              "
  90. 410 m$="b-4":return
  91. 416        xx
  92. 500 rem b 5
  93. 501 b$(1)="              "
  94. 502 b$(2)="              "
  95. 503 b$(3)="              "
  96. 504 b$(4)="              "
  97. 505 b$(5)="          {CBM-*}   "
  98. 506 b$(6)="              "
  99. 507 b$(7)="              "
  100. 508 b$(8)="              "
  101. 509 b$(9)="              "
  102. 510 m$="b-5":return
  103. 521       
  104. 600 rem b 6
  105. 601 b$(1)="              "
  106. 602 b$(2)="              "
  107. 603 b$(3)="              "
  108. 604 b$(4)="              "
  109. 605 b$(5)="              "
  110. 606 b$(6)="              "
  111. 607 b$(7)="              "
  112. 608 b$(8)="              "
  113. 609 b$(9)="              "
  114. 610 m$="b-6":return
  115. 615       
  116. 700 rem b 7
  117. 701 b$(1)="              "
  118. 702 b$(2)="              "
  119. 703 b$(3)="              "
  120. 704 b$(4)="              "
  121. 705 b$(5)="              "
  122. 706 b$(6)="              "
  123. 707 b$(7)="              "
  124. 708 b$(8)="              "
  125. 709 b$(9)="              "
  126. 710 m$="b-7":return
  127. 800 rem b 8
  128. 801 b$(1)="              "
  129. 802 b$(2)="              "
  130. 803 b$(3)="              "
  131. 804 b$(4)="              "
  132. 805 b$(5)="              "
  133. 806 b$(6)="              "
  134. 807 b$(7)="              "
  135. 808 b$(8)="              "
  136. 809 b$(9)="              "
  137. 810 m$="b-8":return
  138. 900 rem b 9
  139. 901 b$(1)="              "
  140. 902 b$(2)="              "
  141. 903 b$(3)="              "
  142. 904 b$(4)="              "
  143. 905 b$(5)="              "
  144. 906 b$(6)="              "
  145. 907 b$(7)="              "
  146. 908 b$(8)="              "
  147. 909 b$(9)="              "
  148. 910 m$="b-9":return
  149. 1000 rem b 10
  150. 1001 b$(1)="              "
  151. 1002 b$(2)="              "
  152. 1003 b$(3)="              "
  153. 1004 b$(4)="              "
  154. 1005 b$(5)="              "
  155. 1006 b$(6)="              "
  156. 1007 b$(7)="              "
  157. 1008 b$(8)="              "
  158. 1009 b$(9)="              "
  159. 1010 m$="b--ten--10":return
  160. 1100 rem b 11
  161. 1101 b$(1)="              "
  162. 1102 b$(2)="              "
  163. 1103 b$(3)="              "
  164. 1104 b$(4)="              "
  165. 1105 b$(5)="              "
  166. 1106 b$(6)="              "
  167. 1107 b$(7)="              "
  168. 1108 b$(8)="              "
  169. 1109 b$(9)="              "
  170. 1110 m$="b-eleven-11":return
  171. 1200 rem b 12
  172. 1201 b$(1)="              "
  173. 1202 b$(2)="              "
  174. 1203 b$(3)="              "
  175. 1204 b$(4)="              "
  176. 1205 b$(5)="              "
  177. 1206 b$(6)="              "
  178. 1207 b$(7)="              "
  179. 1208 b$(8)="              "
  180. 1209 b$(9)="              "
  181. 1210 m$="b-twelve-12":return
  182. 1300 rem b13
  183. 1301 b$(1)="              "
  184. 1302 b$(2)="              "
  185. 1303 b$(3)="              "
  186. 1304 b$(4)="              "
  187. 1305 b$(5)="              "
  188. 1306 b$(6)="              "
  189. 1307 b$(7)="              "
  190. 1308 b$(8)="              "
  191. 1309 b$(9)="              "
  192. 1310 m$="b-thir-teen-13":return
  193. 1400 rem b 14
  194. 1401 b$(1)="        {SHIFT-POUND}     "
  195. 1402 b$(2)="       {SHIFT-POUND}      "
  196. 1403 b$(3)="      {SHIFT-POUND}       "
  197. 1404 b$(4)="     {SHIFT-POUND} {SHIFT-POUND}      "
  198. 1405 b$(5)="              "
  199. 1406 b$(6)="              "
  200. 1407 b$(7)="              "
  201. 1408 b$(8)="              "
  202. 1409 b$(9)="              "
  203. 1410 m$="b-4-teen-14":return
  204. 1500 rem b 15
  205. 1501 b$(1)="              "
  206. 1502 b$(2)="              "
  207. 1503 b$(3)="              "
  208. 1504 b$(4)="              "
  209. 1505 b$(5)="          {CBM-*}   "
  210. 1506 b$(6)="              "
  211. 1507 b$(7)="              "
  212. 1508 b$(8)="              "
  213. 1509 b$(9)="              "
  214. 1510 m$="b-fif-teen-15":return
  215. 1600 rem i 16
  216. 1601 i$(1)="             "
  217. 1602 i$(2)="           {CBM-L} "
  218. 1603 i$(3)="             "
  219. 1604 i$(4)="             "
  220. 1605 i$(5)="             "
  221. 1606 i$(6)="           {CBM-L} "
  222. 1607 i$(7)="           {CBM-L} "
  223. 1608 i$(8)="           {CBM-L} "
  224. 1609 i$(9)="             "
  225. 1610 m$="i-6-teen-16":return
  226. 1620 rem i 16-30
  227. 1621 if s=16thengosub1600:goto1636
  228. 1622 if s=17thengosub1700:goto1636
  229. 1623 if s=18thengosub1800:goto1636
  230. 1624 if s=19thengosub1900:goto1636
  231. 1625 if s=20thengosub2000:goto1636
  232. 1626 if s=21thengosub2100:goto1636
  233. 1627 if s=22thengosub2200:goto1636
  234. 1628 if s=23thengosub2300:goto1636
  235. 1629 if s=24thengosub2400:goto1636
  236. 1630 if s=25thengosub2500:goto1636
  237. 1631 if s=26thengosub2600:goto1636
  238. 1632 if s=27thengosub2700:goto1636
  239. 1633 if s=28thengosub2800:goto1636
  240. 1634 if s=29thengosub2900:goto1636
  241. 1635 if s=30thengosub3000:goto1636
  242. 1636 rem i printout
  243. 1637 print"";:poke214,8:print
  244. 1638 fori=1to9:printtab(13)i$(i):next:print:gosub7800
  245. 1639 fori=1to9:i$(i)="":next:s=0
  246. 1640 goto154
  247. 1641 get any$:if any$=""then1641
  248. 1642 ifany$=chr$(136)thengoto9000
  249. 1643 goto10
  250. 1700 rem i 17
  251. 1701 i$(1)="             "
  252. 1702 i$(2)="             "
  253. 1703 i$(3)="           {CBM-L} "
  254. 1704 i$(4)="             "
  255. 1705 i$(5)="             "
  256. 1706 i$(6)="             "
  257. 1707 i$(7)="             "
  258. 1708 i$(8)="             "
  259. 1709 i$(9)="             "
  260. 1710 m$="i-7-teen-17":return
  261. 1800 rem i 18
  262. 1801 i$(1)="             "
  263. 1802 i$(2)="             "
  264. 1803 i$(3)="             "
  265. 1804 i$(4)="             "
  266. 1805 i$(5)="             "
  267. 1806 i$(6)="             "
  268. 1807 i$(7)="             "
  269. 1808 i$(8)="             "
  270. 1809 i$(9)="             "
  271. 1810 m$="i-8-teen-18":return
  272. 1900 rem i 19
  273. 1901 i$(1)="             "
  274. 1902 i$(2)="             "
  275. 1903 i$(3)="             "
  276. 1904 i$(4)="             "
  277. 1905 i$(5)="             "
  278. 1906 i$(6)="             "
  279. 1907 i$(7)="             "
  280. 1908 i$(8)="             "
  281. 1909 i$(9)="             "
  282. 1910 m$="i-9-teen-19":return
  283. 2000 rem i 20
  284. 2001 i$(1)="           {CBM-L} "
  285. 2002 i$(2)="            {CBM-L}"
  286. 2003 i$(3)="            {CBM-L}"
  287. 2004 i$(4)="            {CBM-L}"
  288. 2005 i$(5)="            {CBM-L}"
  289. 2006 i$(6)="            {CBM-L}"
  290. 2007 i$(7)="            {CBM-L}"
  291. 2008 i$(8)="            {CBM-L}"
  292. 2009 i$(9)="           {CBM-L} "
  293. 2010 m$="i-twun-t-20":return
  294. 2100 rem i 21
  295. 2101 i$(1)="             "
  296. 2102 i$(2)="             "
  297. 2103 i$(3)="             "
  298. 2104 i$(4)="             "
  299. 2105 i$(5)="             "
  300. 2106 i$(6)="             "
  301. 2107 i$(7)="             "
  302. 2108 i$(8)="             "
  303. 2109 i$(9)="             "
  304. 2110 m$="i-twenty-1-21":return
  305. 2200 rem i 22
  306. 2201 i$(1)="             "
  307. 2202 i$(2)="            {CBM-L}"
  308. 2203 i$(3)="            {CBM-L}"
  309. 2204 i$(4)="             "
  310. 2205 i$(5)="             "
  311. 2206 i$(6)="             "
  312. 2207 i$(7)="             "
  313. 2208 i$(8)="             "
  314. 2209 i$(9)="            {CBM-L}"
  315. 2210 m$="i-twenty-2-22":return
  316. 2300 rem i 23
  317. 2301 i$(1)="           {CBM-L} "
  318. 2302 i$(2)="            {CBM-L}"
  319. 2303 i$(3)="            {CBM-L}"
  320. 2304 i$(4)="            {CBM-L}"
  321. 2305 i$(5)="           {CBM-L} "
  322. 2306 i$(6)="            {CBM-L}"
  323. 2307 i$(7)="            {CBM-L}"
  324. 2308 i$(8)="            {CBM-L}"
  325. 2309 i$(9)="           {CBM-L} "
  326. 2310 m$="i-twenty-3-23":return
  327. 2400 rem i 24
  328. 2401 i$(1)="         {SHIFT-POUND}   "
  329. 2402 i$(2)="        {SHIFT-POUND}    "
  330. 2403 i$(3)="       {SHIFT-POUND}     "
  331. 2404 i$(4)="      {SHIFT-POUND} {SHIFT-POUND}    "
  332. 2405 i$(5)="             "
  333. 2406 i$(6)="            {CBM-L}"
  334. 2407 i$(7)="             "
  335. 2408 i$(8)="             "
  336. 2409 i$(9)="             "
  337. 2410 m$="i-twenty-4- 24":return
  338. 2500 rem i 25
  339. 2501 i$(1)="            {CBM-L}"
  340. 2502 i$(2)="             "
  341. 2503 i$(3)="             "
  342. 2504 i$(4)="             "
  343. 2505 i$(5)="       {CBM-*}    {CBM-*}"
  344. 2506 i$(6)="            {CBM-L}"
  345. 2507 i$(7)="            {CBM-L}"
  346. 2508 i$(8)="            {CBM-L}"
  347. 2509 i$(9)="           {CBM-L} "
  348. 2510 m$="i-twenty-5-25":return
  349. 2600 rem i 26
  350. 2601 i$(1)="             "
  351. 2602 i$(2)="            {CBM-L}"
  352. 2603 i$(3)="             "
  353. 2604 i$(4)="             "
  354. 2605 i$(5)="             "
  355. 2606 i$(6)="            {CBM-L}"
  356. 2607 i$(7)="            {CBM-L}"
  357. 2608 i$(8)="            {CBM-L}"
  358. 2609 i$(9)="             "
  359. 2610 m$="i-twenty-6-26":return
  360. 2700 rem i 27
  361. 2701 i$(1)="            {CBM-L}"
  362. 2702 i$(2)="            {CBM-L}"
  363. 2703 i$(3)="            {CBM-L}"
  364. 2704 i$(4)="             "
  365. 2705 i$(5)="             "
  366. 2706 i$(6)="             "
  367. 2707 i$(7)="             "
  368. 2708 i$(8)="             "
  369. 2709 i$(9)="             "
  370. 2710 m$="i-twenty-7-27":return
  371. 2800 rem i 28
  372. 2801 i$(1)="           {CBM-L} "
  373. 2802 i$(2)="            {CBM-L}"
  374. 2803 i$(3)="            {CBM-L}"
  375. 2804 i$(4)="            {CBM-L}"
  376. 2805 i$(5)="           {CBM-L} "
  377. 2806 i$(6)="            {CBM-L}"
  378. 2807 i$(7)="            {CBM-L}"
  379. 2808 i$(8)="            {CBM-L}"
  380. 2809 i$(9)="           {CBM-L} "
  381. 2810 m$="i-twenty-8-28":return
  382. 2900 rem i 29
  383. 2901 i$(1)="           {CBM-L} "
  384. 2902 i$(2)="            {CBM-L}"
  385. 2903 i$(3)="            {CBM-L}"
  386. 2904 i$(4)="            {CBM-L}"
  387. 2905 i$(5)="            {CBM-L}"
  388. 2906 i$(6)="            {CBM-L}"
  389. 2907 i$(7)="            {CBM-L}"
  390. 2908 i$(8)="            {CBM-L}"
  391. 2909 i$(9)="           {CBM-L} "
  392. 2910 m$="i-twenty-9-29":return
  393. 3000 rem i30
  394. 3001 i$(1)="           {CBM-L} "
  395. 3002 i$(2)="            {CBM-L}"
  396. 3003 i$(3)="            {CBM-L}"
  397. 3004 i$(4)="            {CBM-L}"
  398. 3005 i$(5)="            {CBM-L}"
  399. 3006 i$(6)="            {CBM-L}"
  400. 3007 i$(7)="            {CBM-L}"
  401. 3008 i$(8)="            {CBM-L}"
  402. 3009 i$(9)="           {CBM-L} "
  403. 3010 m$="i-thir-t-30":return
  404. 3100 rem n 31
  405. 3101 n$(1)="             "
  406. 3102 n$(2)="             "
  407. 3103 n$(3)="             "
  408. 3104 n$(4)="             "
  409. 3105 n$(5)="             "
  410. 3106 n$(6)="             "
  411. 3107 n$(7)="             "
  412. 3108 n$(8)="             "
  413. 3109 n$(9)="             "
  414. 3110 m$="n-thirty-1-31":return
  415. 3120 rem n 31-45
  416. 3121 if s=31thengosub3100:goto3136
  417. 3122 if s=32thengosub3200:goto3136
  418. 3123 if s=33thengosub3300:goto3136
  419. 3124 if s=34thengosub3400:goto3136
  420. 3125 if s=35thengosub3500:goto3136
  421. 3126 if s=36thengosub3600:goto3136
  422. 3127 if s=37thengosub3700:goto3136
  423. 3128 if s=38thengosub3800:goto3136
  424. 3129 if s=39thengosub3900:goto3136
  425. 3130 if s=40thengosub4000:goto3136
  426. 3131 if s=41thengosub4100:goto3136
  427. 3132 if s=42thengosub4200:goto3136
  428. 3133 if s=43thengosub4300:goto3136
  429. 3134 if s=44thengosub4400:goto3136
  430. 3135 if s=45thengosub4500:goto3136
  431. 3136 rem n printout
  432. 3137 print"";:poke214,8:print
  433. 3138 forn=1to9:printtab(13)n$(n):next:print:gosub7800
  434. 3139 forn=1to9:n$(n)="":next:s=0
  435. 3140 goto154
  436. 3200 rem n 32
  437. 3201 n$(1)="           {CBM-L} "
  438. 3202 n$(2)="            {CBM-L}"
  439. 3203 n$(3)="            {CBM-L}"
  440. 3204 n$(4)="           {CBM-L} "
  441. 3205 n$(5)="             "
  442. 3206 n$(6)="             "
  443. 3207 n$(7)="             "
  444. 3208 n$(8)="             "
  445. 3209 n$(9)="            {CBM-L}"
  446. 3210 m$="n-thirty-2-32":return
  447. 3300 rem n 33
  448. 3301 n$(1)="           {CBM-L} "
  449. 3302 n$(2)="            {CBM-L}"
  450. 3303 n$(3)="            {CBM-L}"
  451. 3304 n$(4)="            {CBM-L}"
  452. 3305 n$(5)="           {CBM-L} "
  453. 3306 n$(6)="            {CBM-L}"
  454. 3307 n$(7)="            {CBM-L}"
  455. 3308 n$(8)="            {CBM-L}"
  456. 3309 n$(9)="           {CBM-L} "
  457. 3310 m$="n-thirty-3-33":return
  458. 3400 rem n 34
  459. 3401 n$(1)="         {SHIFT-POUND}   "
  460. 3402 n$(2)="        {SHIFT-POUND}    "
  461. 3403 n$(3)="       {SHIFT-POUND}     "
  462. 3404 n$(4)="      {SHIFT-POUND} {SHIFT-POUND}    "
  463. 3405 n$(5)="      {CBM-K}      "
  464. 3406 n$(6)="      {CBM-K}     {CBM-L}"
  465. 3407 n$(7)="             "
  466. 3408 n$(8)="             "
  467. 3409 n$(9)="             "
  468. 3410 m$="n-thirty-4- 34":return
  469. 3500 rem n 35
  470. 3501 n$(1)="            {CBM-L}"
  471. 3502 n$(2)="             "
  472. 3503 n$(3)="             "
  473. 3504 n$(4)="             "
  474. 3505 n$(5)="            {CBM-*}"
  475. 3506 n$(6)="            {CBM-L}"
  476. 3507 n$(7)="            {CBM-L}"
  477. 3508 n$(8)="            {CBM-L}"
  478. 3509 n$(9)="             "
  479. 3510 m$="n-thirty-5-35":return
  480. 3600 rem n 36
  481. 3601 n$(1)="           {CBM-L} "
  482. 3602 n$(2)="            {CBM-L}"
  483. 3603 n$(3)="             "
  484. 3604 n$(4)="             "
  485. 3605 n$(5)="           {CBM-L} "
  486. 3606 n$(6)="            {CBM-L}"
  487. 3607 n$(7)="            {CBM-L}"
  488. 3608 n$(8)="            {CBM-L}"
  489. 3609 n$(9)="           {CBM-L} "
  490. 3610 m$="n-thirty-6-36":return
  491. 3700 rem n 37
  492. 3701 n$(1)="            {CBM-L}"
  493. 3702 n$(2)="            {CBM-L}"
  494. 3703 n$(3)="            {CBM-L}"
  495. 3704 n$(4)="             "
  496. 3705 n$(5)="             "
  497. 3706 n$(6)="             "
  498. 3707 n$(7)="             "
  499. 3708 n$(8)="             "
  500. 3709 n$(9)="             "
  501. 3710 m$="n-thirty-7-37":return
  502. 3800 rem n 38
  503. 3801 n$(1)="           {CBM-L} "
  504. 3802 n$(2)="            {CBM-L}"
  505. 3803 n$(3)="            {CBM-L}"
  506. 3804 n$(4)="            {CBM-L}"
  507. 3805 n$(5)="           {CBM-L} "
  508. 3806 n$(6)="            {CBM-L}"
  509. 3807 n$(7)="            {CBM-L}"
  510. 3808 n$(8)="            {CBM-L}"
  511. 3809 n$(9)="           {CBM-L} "
  512. 3810 m$="n-thirty-8-38":return
  513. 3900 rem n 39
  514. 3901 n$(1)="           {CBM-L} "
  515. 3902 n$(2)="            {CBM-L}"
  516. 3903 n$(3)="            {CBM-L}"
  517. 3904 n$(4)="            {CBM-L}"
  518. 3905 n$(5)="            {CBM-L}"
  519. 3906 n$(6)="            {CBM-L}"
  520. 3907 n$(7)="            {CBM-L}"
  521. 3908 n$(8)="            {CBM-L}"
  522. 3909 n$(9)="           {CBM-L} "
  523. 3910 m$="n-thirty-9-39":return
  524. 4000 rem n40
  525. 4001 n$(1)="   {SHIFT-POUND}        "
  526. 4002 n$(2)="  {SHIFT-POUND}          "
  527. 4003 n$(3)=" {SHIFT-POUND}           "
  528. 4004 n$(4)="{SHIFT-POUND} {SHIFT-POUND}          "
  529. 4005 n$(5)="             "
  530. 4006 n$(6)="      {CBM-L}      "
  531. 4007 n$(7)="             "
  532. 4008 n$(8)="             "
  533. 4009 n$(9)="            "
  534. 4010 m$="n-for-t-40":return
  535. 4100 rem n 41
  536. 4101 n$(1)="    {SHIFT-POUND}        "
  537. 4102 n$(2)="   {SHIFT-POUND}         "
  538. 4103 n$(3)="  {SHIFT-POUND}          "
  539. 4104 n$(4)=" {SHIFT-POUND} {SHIFT-POUND}         "
  540. 4105 n$(5)="             "
  541. 4106 n$(6)="             "
  542. 4107 n$(7)="             "
  543. 4108 n$(8)="             "
  544. 4109 n$(9)="             "
  545. 4110 m$="n-forty-1-41":return
  546. 4200 rem n42
  547. 4201 n$(1)="   {SHIFT-POUND}        "
  548. 4202 n$(2)="  {SHIFT-POUND}          "
  549. 4203 n$(3)=" {SHIFT-POUND}           "
  550. 4204 n$(4)="{SHIFT-POUND} {SHIFT-POUND}         "
  551. 4205 n$(5)="           "
  552. 4206 n$(6)="      {CBM-L}   "
  553. 4207 n$(7)="         "
  554. 4208 n$(8)="         "
  555. 4209 n$(9)="             "
  556. 4210 m$="n-forty-2-42":return
  557. 4300 rem n42
  558. 4301 n$(1)="   {SHIFT-POUND}        "
  559. 4302 n$(2)="  {SHIFT-POUND}          "
  560. 4303 n$(3)=" {SHIFT-POUND}           "
  561. 4304 n$(4)="{SHIFT-POUND} {SHIFT-POUND}          "
  562. 4305 n$(5)="            "
  563. 4306 n$(6)="      {CBM-L}      "
  564. 4307 n$(7)="             "
  565. 4308 n$(8)="             "
  566. 4309 n$(9)="            "
  567. 4310 m$="n-forty-3-43":return
  568. 4400 rem n44
  569. 4401 n$(1)="   {SHIFT-POUND}      {SHIFT-POUND}  "
  570. 4402 n$(2)="  {SHIFT-POUND}      {SHIFT-POUND}   "
  571. 4403 n$(3)=" {SHIFT-POUND}      {SHIFT-POUND}    "
  572. 4404 n$(4)="{SHIFT-POUND} {SHIFT-POUND}    {SHIFT-POUND} {SHIFT-POUND}   "
  573. 4405 n$(5)="             "
  574. 4406 n$(6)="      {CBM-L}      {CBM-L}"
  575. 4407 n$(7)="             "
  576. 4408 n$(8)="             "
  577. 4409 n$(9)="             "
  578. 4410 m$="n-forty-4- 44":return
  579. 4500 rem n45
  580. 4501 n$(1)="   {SHIFT-POUND} {CBM-L}     {CBM-L} "
  581. 4502 n$(2)="  {SHIFT-POUND}  {CBM-L}       "
  582. 4503 n$(3)=" {SHIFT-POUND}   {CBM-L}       "
  583. 4504 n$(4)="{SHIFT-POUND} {SHIFT-POUND}  {CBM-L}       "
  584. 4505 n$(5)="     {CBM-L}{CBM-@}{CBM-@}{CBM-@}{CBM-@} {CBM-*} "
  585. 4506 n$(6)="      {CBM-L}    {CBM-L} "
  586. 4507 n$(7)="     {CBM-L}     {CBM-L} "
  587. 4508 n$(8)="     {CBM-L}     {CBM-L} "
  588. 4509 n$(9)="     {CBM-L}       "
  589. 4510 m$="n-forty-5-45":return
  590. 4600 rem g46
  591. 4601 g$(1)="   {SHIFT-POUND}         "
  592. 4602 g$(2)="  {SHIFT-POUND}          "
  593. 4603 g$(3)=" {SHIFT-POUND}           "
  594. 4604 g$(4)="{SHIFT-POUND} {SHIFT-POUND}          "
  595. 4605 g$(5)="             "
  596. 4606 g$(6)="      {CBM-L}      "
  597. 4607 g$(7)="             "
  598. 4608 g$(8)="             "
  599. 4609 g$(9)="             "
  600. 4610 m$="g-forty-6-46":return
  601. 4620 rem g 46-60
  602. 4621 if s=46thengosub4600:goto4636
  603. 4622 if s=47thengosub4700:goto4636
  604. 4623 if s=48thengosub4800:goto4636
  605. 4624 if s=49thengosub4900:goto4636
  606. 4625 if s=50thengosub5000:goto4636
  607. 4626 if s=51thengosub5100:goto4636
  608. 4627 if s=52thengosub5200:goto4636
  609. 4628 if s=53thengosub5300:goto4636
  610. 4629 if s=54thengosub5400:goto4636
  611. 4630 if s=55thengosub5500:goto4636
  612. 4631 if s=56thengosub5600:goto4636
  613. 4632 if s=57thengosub5700:goto4636
  614. 4633 if s=58thengosub5800:goto4636
  615. 4634 if s=59thengosub5900:goto4636
  616. 4635 if s=60thengosub6000:goto4636
  617. 4636 rem g printout
  618. 4637 print"";:poke214,8:print
  619. 4638 forg=1to9:printtab(13)g$(g):next:print:gosub7800
  620. 4639 forg=1to9:g$(g)="":next:s=0
  621. 4640 goto154
  622. 4700 rem g 47
  623. 4701 g$(1)="   {SHIFT-POUND}         "
  624. 4702 g$(2)="  {SHIFT-POUND}          "
  625. 4703 g$(3)=" {SHIFT-POUND}           "
  626. 4704 g$(4)="{SHIFT-POUND} {SHIFT-POUND}          "
  627. 4705 g$(5)="             "
  628. 4706 g$(6)="      {CBM-L}      "
  629. 4707 g$(7)="             "
  630. 4708 g$(8)="             "
  631. 4709 g$(9)="             "
  632. 4710 m$="g-forty-7-47":return
  633. 4800 rem g 48
  634. 4801 g$(1)="   {SHIFT-POUND}         "
  635. 4802 g$(2)="  {SHIFT-POUND}          "
  636. 4803 g$(3)=" {SHIFT-POUND}           "
  637. 4804 g$(4)="{SHIFT-POUND} {SHIFT-POUND}          "
  638. 4805 g$(5)="             "
  639. 4806 g$(6)="      {CBM-L}      "
  640. 4807 g$(7)="             "
  641. 4808 g$(8)="             "
  642. 4809 g$(9)="             "
  643. 4810 m$="g-forty-8-48":return
  644. 4900 rem g 49
  645. 4901 g$(1)="   {SHIFT-POUND}         "
  646. 4902 g$(2)="  {SHIFT-POUND}          "
  647. 4903 g$(3)=" {SHIFT-POUND}           "
  648. 4904 g$(4)="{SHIFT-POUND} {SHIFT-POUND}          "
  649. 4905 g$(5)="             "
  650. 4906 g$(6)="             "
  651. 4907 g$(7)="             "
  652. 4908 g$(8)="             "
  653. 4909 g$(9)="             "
  654. 4910 m$="g-forty-9-49":return
  655. 5000 rem g 50
  656. 5001 g$(1)="             "
  657. 5002 g$(2)="             "
  658. 5003 g$(3)="             "
  659. 5004 g$(4)="             "
  660. 5005 g$(5)="     {CBM-*}       "
  661. 5006 g$(6)="             "
  662. 5007 g$(7)="             "
  663. 5008 g$(8)="             "
  664. 5009 g$(9)="             "
  665. 5010 m$="g-fif-t-50":return
  666. 5100 rem g 51
  667. 5101 g$(1)="             "
  668. 5102 g$(2)="             "
  669. 5103 g$(3)="             "
  670. 5104 g$(4)="             "
  671. 5105 g$(5)="       {CBM-*}     "
  672. 5106 g$(6)="             "
  673. 5107 g$(7)="             "
  674. 5108 g$(8)="             "
  675. 5109 g$(9)="             "
  676. 5110 m$="g-fifty-1-51":return
  677. 5200 rem g 52
  678. 5201 g$(1)="             "
  679. 5202 g$(2)="             "
  680. 5203 g$(3)="             "
  681. 5204 g$(4)="             "
  682. 5205 g$(5)="     {CBM-*}       "
  683. 5206 g$(6)="             "
  684. 5207 g$(7)="             "
  685. 5208 g$(8)="             "
  686. 5209 g$(9)="             "
  687. 5210 m$="g-fifty-2-52":return
  688. 5300 rem g53
  689. 5301 g$(1)="             "
  690. 5302 g$(2)="             "
  691. 5303 g$(3)="             "
  692. 5304 g$(4)="             "
  693. 5305 g$(5)="     {CBM-*}       "
  694. 5306 g$(6)="             "
  695. 5307 g$(7)="             "
  696. 5308 g$(8)="             "
  697. 5309 g$(9)="             "
  698. 5310 m$="g-fifty-3-53":return
  699. 5400 rem g 54
  700. 5401 g$(1)="          {SHIFT-POUND} {CBM-L}"
  701. 5402 g$(2)="         {SHIFT-POUND}  {CBM-L}"
  702. 5403 g$(3)="        {SHIFT-POUND}   {CBM-L}"
  703. 5404 g$(4)="       {SHIFT-POUND} {SHIFT-POUND}  {CBM-L}"
  704. 5405 g$(5)="     {CBM-*}{SHIFT-POUND} {SHIFT-POUND}   {CBM-L}"
  705. 5406 g$(6)="      {CBM-G}      "
  706. 5407 g$(7)="            {CBM-L}"
  707. 5408 g$(8)="            {CBM-L}"
  708. 5409 g$(9)="            {CBM-L}"
  709. 5410 m$="g-fifty-4-54":return
  710. 5500 rem g 55
  711. 5501 g$(1)="             "
  712. 5502 g$(2)="             "
  713. 5503 g$(3)="             "
  714. 5504 g$(4)="             "
  715. 5505 g$(5)="     {CBM-*}      {CBM-*}"
  716. 5506 g$(6)="             "
  717. 5507 g$(7)="             "
  718. 5508 g$(8)="             "
  719. 5509 g$(9)="             "
  720. 5510 m$="g-fifty-5-55":return
  721. 5600 rem g56
  722. 5601 g$(1)="             "
  723. 5602 g$(2)="             "
  724. 5603 g$(3)="             "
  725. 5604 g$(4)="             "
  726. 5605 g$(5)="     {CBM-*}       "
  727. 5606 g$(6)="             "
  728. 5607 g$(7)="             "
  729. 5608 g$(8)="             "
  730. 5609 g$(9)="             "
  731. 5610 m$="g-fifty-6-56":return
  732. 5700 rem g 57
  733. 5701 g$(1)="             "
  734. 5702 g$(2)="             "
  735. 5703 g$(3)="             "
  736. 5704 g$(4)="             "
  737. 5705 g$(5)="     {CBM-*}       "
  738. 5706 g$(6)="             "
  739. 5707 g$(7)="             "
  740. 5708 g$(8)="             "
  741. 5709 g$(9)="             "
  742. 5710 m$="g-fifty-7-57":return
  743. 5800 rem g 58
  744. 5801 g$(1)="             "
  745. 5802 g$(2)="             "
  746. 5803 g$(3)="             "
  747. 5804 g$(4)="             "
  748. 5805 g$(5)="     {CBM-*}       "
  749. 5806 g$(6)="             "
  750. 5807 g$(7)="             "
  751. 5808 g$(8)="             "
  752. 5809 g$(9)="             "
  753. 5810 m$="g-fifty-8-58":return
  754. 5900 rem g 59
  755. 5901 g$(1)="             "
  756. 5902 g$(2)="             "
  757. 5903 g$(3)="             "
  758. 5904 g$(4)="             "
  759. 5905 g$(5)="     {CBM-*}       "
  760. 5906 g$(6)="             "
  761. 5907 g$(7)="             "
  762. 5908 g$(8)="             "
  763. 5909 g$(9)="             "
  764. 5910 m$="g-fifty-9-59":return
  765. 6000 rem g60
  766. 6001 g$(1)="             "
  767. 6002 g$(2)="             "
  768. 6003 g$(3)="             "
  769. 6004 g$(4)="             "
  770. 6005 g$(5)="             "
  771. 6006 g$(6)="             "
  772. 6007 g$(7)="             "
  773. 6008 g$(8)="             "
  774. 6009 g$(9)="             "
  775. 6010 m$="g-6-t-60":return
  776. 6100 rem o 61
  777. 6101 o$(1)="           "
  778. 6102 o$(2)="           "
  779. 6103 o$(3)="           "
  780. 6104 o$(4)="           "
  781. 6105 o$(5)="           "
  782. 6106 o$(6)="           "
  783. 6107 o$(7)="           "
  784. 6108 o$(8)="           "
  785. 6109 o$(9)="           "
  786. 6110 m$="o-sixty-1-61":return
  787. 6120 rem o 61-75
  788. 6121 if s=61thengosub6100:goto6136
  789. 6122 if s=62thengosub6600:goto6136
  790. 6123 if s=63thengosub6300:goto6136
  791. 6124 if s=64thengosub6400:goto6136
  792. 6125 if s=65thengosub6500:goto6136
  793. 6126 if s=66thengosub6600:goto6136
  794. 6127 if s=67thengosub6700:goto6136
  795. 6128 if s=68thengosub6800:goto6136
  796. 6129 if s=69thengosub6900:goto6136
  797. 6130 if s=70thengosub7000:goto6136
  798. 6131 if s=71thengosub7100:goto6136
  799. 6132 if s=72thengosub7200:goto6136
  800. 6133 if s=73thengosub7300:goto6136
  801. 6134 if s=74thengosub7400:goto6136
  802. 6135 if s=75thengosub7500:goto6136
  803. 6136 rem o printout
  804. 6137 print"";:poke214,8:print
  805. 6138 foro=1to9:printtab(13)o$(o):next:print:gosub7800
  806. 6139 foro=1to9:o$(o)="":next:s=0
  807. 6140 goto154
  808. 6200 rem o 62
  809. 6201 o$(1)="            "
  810. 6202 o$(2)="             "
  811. 6203 o$(3)="             "
  812. 6204 o$(4)="            "
  813. 6205 o$(5)="           "
  814. 6206 o$(6)="          "
  815. 6207 o$(7)="         "
  816. 6208 o$(8)="         "
  817. 6209 o$(9)="             "
  818. 6210 m$="o-sixty-2-62":return
  819. 6300 rem o 63
  820. 6301 o$(1)="            "
  821. 6302 o$(2)="             "
  822. 6303 o$(3)="             "
  823. 6304 o$(4)="             "
  824. 6305 o$(5)="            "
  825. 6306 o$(6)="             "
  826. 6307 o$(7)="             "
  827. 6308 o$(8)="             "
  828. 6309 o$(9)="            "
  829. 6310 m$="o-sixty-3-63":return
  830. 6400 rem o 64
  831. 6401 o$(1)="          {SHIFT-POUND}  "
  832. 6402 o$(2)="         {SHIFT-POUND}   "
  833. 6403 o$(3)="        {SHIFT-POUND}    "
  834. 6404 o$(4)="       {SHIFT-POUND} {SHIFT-POUND}   "
  835. 6405 o$(5)="             "
  836. 6406 o$(6)="              "
  837. 6407 o$(7)="             "
  838. 6408 o$(8)="             "
  839. 6409 o$(9)="             "
  840. 6410 m$="o-sixty-4-6-4":return
  841. 6500 rem o 65
  842. 6501 o$(1)="             "
  843. 6502 o$(2)="         "
  844. 6503 o$(3)="         "
  845. 6504 o$(4)="         "
  846. 6505 o$(5)="            {CBM-*}"
  847. 6506 o$(6)="             "
  848. 6507 o$(7)="             "
  849. 6508 o$(8)="             "
  850. 6509 o$(9)="            "
  851. 6510 m$="o-sixty-5-65":return
  852. 6600 rem o 66
  853. 6601 o$(1)="            "
  854. 6602 o$(2)="             "
  855. 6603 o$(3)="         "
  856. 6604 o$(4)="         "
  857. 6605 o$(5)="            "
  858. 6606 o$(6)="             "
  859. 6607 o$(7)="             "
  860. 6608 o$(8)="             "
  861. 6609 o$(9)="            "
  862. 6610 m$="o-sixty-6-66":return
  863. 6700 rem o 67
  864. 6701 o$(1)="             "
  865. 6702 o$(2)="             "
  866. 6703 o$(3)="             "
  867. 6704 o$(4)="            "
  868. 6705 o$(5)="           "
  869. 6706 o$(6)="           "
  870. 6707 o$(7)="           "
  871. 6708 o$(8)="           "
  872. 6709 o$(9)="           "
  873. 6710 m$="o-sixty-7-67":return
  874. 6800 rem o 68
  875. 6801 o$(1)="            "
  876. 6802 o$(2)="             "
  877. 6803 o$(3)="             "
  878. 6804 o$(4)="             "
  879. 6805 o$(5)="            "
  880. 6806 o$(6)="             "
  881. 6807 o$(7)="             "
  882. 6808 o$(8)="             "
  883. 6809 o$(9)="            "
  884. 6810 m$="o-sixty-8-68":return
  885. 6900 rem o 69
  886. 6901 o$(1)="            "
  887. 6902 o$(2)="             "
  888. 6903 o$(3)="             "
  889. 6904 o$(4)="             "
  890. 6905 o$(5)="             "
  891. 6906 o$(6)="             "
  892. 6907 o$(7)="             "
  893. 6908 o$(8)="             "
  894. 6909 o$(9)="            "
  895. 6910 m$="o-sixty-9-69":return
  896. 7000 rem o 70
  897. 7001 o$(1)="            "
  898. 7002 o$(2)="             "
  899. 7003 o$(3)="             "
  900. 7004 o$(4)="             "
  901. 7005 o$(5)="             "
  902. 7006 o$(6)="             "
  903. 7007 o$(7)="             "
  904. 7008 o$(8)="             "
  905. 7009 o$(9)="            "
  906. 7010 m$="o-7-t-70":return
  907. 7100 rem o 71
  908. 7101 o$(1)="             "
  909. 7102 o$(2)="             "
  910. 7103 o$(3)="             "
  911. 7104 o$(4)="             "
  912. 7105 o$(5)="             "
  913. 7106 o$(6)="             "
  914. 7107 o$(7)="             "
  915. 7108 o$(8)="             "
  916. 7109 o$(9)="             "
  917. 7110 m$="o-seventy-1-71":return
  918. 7200 rem o 72
  919. 7201 o$(1)="            "
  920. 7202 o$(2)="             "
  921. 7203 o$(3)="             "
  922. 7204 o$(4)="            "
  923. 7205 o$(5)="           "
  924. 7206 o$(6)="          "
  925. 7207 o$(7)="         "
  926. 7208 o$(8)="         "
  927. 7209 o$(9)="             "
  928. 7210 m$="o-seventy-2-72":return
  929. 7300 rem o 73
  930. 7301 o$(1)="            "
  931. 7302 o$(2)="             "
  932. 7303 o$(3)="             "
  933. 7304 o$(4)="             "
  934. 7305 o$(5)="            "
  935. 7306 o$(6)="             "
  936. 7307 o$(7)="             "
  937. 7308 o$(8)="             "
  938. 7309 o$(9)="            "
  939. 7310 m$="o-seventy-3-73":return
  940. 7400 rem o 74
  941. 7401 o$(1)="          {SHIFT-POUND}  "
  942. 7402 o$(2)="         {SHIFT-POUND}   "
  943. 7403 o$(3)="        {SHIFT-POUND}    "
  944. 7404 o$(4)="       {SHIFT-POUND} {SHIFT-POUND}   "
  945. 7405 o$(5)="             "
  946. 7406 o$(6)="              "
  947. 7407 o$(7)="             "
  948. 7408 o$(8)="             "
  949. 7409 o$(9)="             "
  950. 7410 m$="o-seventy-4-74":return
  951. 7500 rem o 75
  952. 7501 o$(1)="             "
  953. 7502 o$(2)="         "
  954. 7503 o$(3)="         "
  955. 7504 o$(4)="         "
  956. 7505 o$(5)="            {CBM-*}"
  957. 7506 o$(6)="             "
  958. 7507 o$(7)="             "
  959. 7508 o$(8)="             "
  960. 7509 o$(9)="            "
  961. 7510 m$="o-seventy-5-75":return
  962. 7600 rem explode from center
  963. 7601 m$="please clear your cards"
  964. 7602 print"";:poke214,11:print
  965. 7603 rem ** letters explode from center
  966. 7604 iflen(m$)/2<>int(len(m$)/2)thenm$=m$+" "
  967. 7605 l=len(m$):ta=(40-l)/2:tb=l/2:tc=ta+tb:forj=1totb:tc=tc-1
  968. 7606 printtab(tc)left$(m$,j)tab(tb)right$(m$,j)"":fork=1to20:next:next
  969. 7609 ]li1:say m$:]li1
  970. 7610 return
  971. 7700 poke646,1:m$(1)="call bingo":m$(2)="by kenny barsky"
  972. 7701 gosub7703
  973. 7702 poke53280,6:poke214,11:print:printtab(15)""m$(1):printtab(12)m$(2):return
  974. 7703 a=55747:b=55764:c=55867:d=55884
  975. 7704 poke53280,6
  976. 7705 print"";:a$="                                       ":rem 39 spaces
  977. 7706 forg=1to24:printa$:nextg:printa$""
  978. 7707 e=2:forf=1to10:gosub7711:nextf
  979. 7708 a=a-41:b=b-39:c=c+39:d=d+41
  980. 7709 e=-1:forf=1to10:gosub7712:nextf
  981. 7710 return
  982. 7711 a=a-41:b=b-39:c=c+39:d=d+41:goto7713
  983. 7712 a=a+41:b=b+39:c=c-39:d=d-41
  984. 7713 e=e+1:forg=a+1tob:pokeg,e:nextg
  985. 7714 forg=btodstep40:pokeg,e:nextg
  986. 7715 forg=dtocstep-1:pokeg,e:nextg
  987. 7716 forg=ctoastep-40:pokeg,e:nextg:return
  988. 7717 goto7710
  989. 7800 s1=54272:for l=s1 to s1+24:pokel,0:next:pokes1+24,15:rem dong
  990. 7801 s1=54272:pokes1+1,130:pokes1+5,9:pokes1+15,20:pokes1+4,29:forss=1to1200
  991. 7802 next:pokes1+4,28:return
  992. 7810 return
  993. 8000 rem b+
  994. 8001 printchr$(142)"";:l=0:t=16:rem line, tab
  995. 8002 b1$="    ":b2$="  {CBM-*} {CBM-*}":b3$="  {SHIFT-POUND} {SHIFT-POUND}"
  996. 8003 poke214,l:print:printtab(t);b1$;"{CBM-*}":printtab(t);b2$:printtab(t)b3$
  997. 8004 printtab(t);b1$" ":printtab(t);b2$:printtab(t)b3$:printtab(t);b1$;"{SHIFT-POUND}"
  998. 8010 return
  999. 8100 rem i+
  1000. 8101 printchr$(142)"";:l=0:t=18:rem line, tab
  1001. 8102 i1$="  ":poke214,l:print
  1002. 8103 fori=1to7:printtab(t);i1$:next
  1003. 8110 return
  1004. 8200 rem n+
  1005. 8201 printchr$(142)"";:l=0:t=16:rem line, tab
  1006. 8202 n1$="  ":poke214,l:print:printtab(t);""n1$"{CBM-*}"spc(2)n1$
  1007. 8203 printtab(t);""n1$" {CBM-*}"n1$:printtab(t);""n1$"{CBM-*} {CBM-*}"n1$
  1008. 8204 printtab(t);""n1$"{CBM-*} "n1$:printtab(t);""n1$"{CBM-*}"n1$
  1009. 8205 forn=1to2:printtab(t);""n1$spc(3)n1$:next
  1010. 8210 return
  1011. 8300 rem g+
  1012. 8301 printchr$(142)"";:l=0:t=16:rem line, tab
  1013. 8302 g1$="    ":g2$="    ":g3$="  ":poke214,l:print
  1014. 8303 printtab(t);"{SHIFT-POUND}"g1$"{CBM-*}":printtab(t);g2$:forg=1to3:printtab(t)g3$:next
  1015. 8304 printtab(t);g2$:printtab(t);"{CBM-*}"g1$"{SHIFT-POUND}":printtab(t)"   "
  1016. 8310 return
  1017. 8400 rem 0+
  1018. 8401 printchr$(142)"";:l=0:t=16:rem line, tab
  1019. 8402 o1$="    ":o2$="    ":o3$="  ":poke214,l:print
  1020. 8403 printtab(t);"{SHIFT-POUND}"o1$"{CBM-*}":foro=1to5:printtab(t);o2$:next
  1021. 8404 printtab(t);"{CBM-*}"o1$"{SHIFT-POUND}"
  1022. 8410 return
  1023. 9000 rem tally board
  1024. 9001 print"  b":print" {CBM-T}{CBM-T}{CBM-T}":poke53280,0
  1025. 9002 for b=1to15
  1026. 9003 ifno(b)<>0thenprinttab(1)right$(str$(b),2):goto9005
  1027. 9004 print"";tab(1)right$(str$(b),2)""
  1028. 9005 next
  1029. 9006 print""tab(9)" i":printtab(9)"{CBM-T}{CBM-T}{CBM-T}"
  1030. 9007 for i=16to30
  1031. 9008 ifno(i)<>0thenprinttab(9)right$(str$(i),2):goto9010
  1032. 9009 print"";tab(9)right$(str$(i),2)""
  1033. 9010 next
  1034. 9011 print""tab(18)" n":printtab(18)"{CBM-T}{CBM-T}{CBM-T}"
  1035. 9012 for n=31to45
  1036. 9013 ifno(n)<>0thenprinttab(18)right$(str$(n),2):goto9015
  1037. 9014 print"";tab(18)right$(str$(n),2)""
  1038. 9015 next
  1039. 9016 print""tab(27)" g":printtab(27)"{CBM-T}{CBM-T}{CBM-T}"
  1040. 9017 for g=46to60
  1041. 9018 ifno(g)<>0thenprinttab(27)right$(str$(g),2):goto9020
  1042. 9019 print"";tab(27)right$(str$(g),2)""
  1043. 9020 next
  1044. 9021 print""tab(36)" o":printtab(36)"{CBM-T}{CBM-T}{CBM-T}"
  1045. 9022 for o=61to75
  1046. 9023 ifno(o)<>0thenprinttab(36)right$(str$(o),2):goto9025
  1047. 9024 print"";tab(36)right$(str$(o),2)""
  1048. 9025 next
  1049. 9026 print:print:]li1:m$="does anyone have bingo?"
  1050. 9027 t=int((40-len(m$))/2):printtab(t)m$;:say m$:print" (y/n)
  1051.  
  1052. 9028 get yn$:ifyn$=""then9028
  1053. 9029 if yn$="y"then 21000:restore:goto2
  1054. 9030 goto10
  1055. 10000 d=peek(186):printd:n$="call bingo":open15,d,15,"s0:"+n$:close15:saven$,d:
  1056. 10001 verifyn$,d:end
  1057. 20000 forx=1to75:n=mo(x):s=int(rnd(1)*75+1):mo(x)=mo(s):mo(s)=n:next
  1058. 20002 s0=0:return
  1059. 21000 m$="shall we play another game"
  1060. 21002 t=int((40-len(m$))/2)
  1061. 21004 poke214,18:print:printtab(t)""m$"    ";
  1062. 21006 saym$:print" (y/n)"
  1063. 21007 poke198,0
  1064. 21008 forx=1to1:getany$:x=x+(any$= ""):next:
  1065. 21009 ifany$="y"thenpoke53280,13:restore:goto2
  1066. 40000 ]quit
  1067. 40009 fori=0to21:poke828+i,8+i:next
  1068. 40010 ifdv<8ordv>29ordv=8then40030
  1069. 40020 a=peek(828):b=peek(828+dv-8):poke828,b:poke828+dv-8,a
  1070. 40030 a$="hello connect":forj=8to29:i=peek(828+j-8):ifi=14thennext
  1071. 40040 close2:open2,i,2:close2:ifstthen40060
  1072. 40050 close15:open15,i,15,"r0:"+a$+"="+a$:input#15,er:close15:ifer=63then40070
  1073. 40060 next:print"":poke53272,23:poke186,8:end
  1074. 40070 q$=chr$(34):poke646,peek(53281):print"":poke53272,23
  1075. 40080 print"pO2048,0:pO44,8:pO43,1:pO56,160:pO55,0:clr:lO"q$a$q$","i
  1076. 40090 print"run:":poke631,13:poke632,13:poke198,2:end
  1077. 40100 ]quit:rem::forx=37768to40690:pokex,0:next:rem disable sam
  1078. 40102 return
  1079. 60099 end
  1080. 61000 open15,9,15:print"scratch 'call bingo'
  1081.  
  1082. 61001 print#15,"s0:call bingo":close15:save"call bingo",9
  1083.